'(THIS IS THE UNFASL FOR ((DSK (AID RPG)) EDIT /113)) 
'(ASSEMBLED BY FASLAP /390) 
'(COMPILED BY LISP COMPILER /933 COMAUX /25 PHAS1 /80 MAKLAP /75 INITIA /111) 

;COMPILED ON OCTOBER 21, 1981, AT 11:37 PM

	(COMMENT **FASL** 0. (LAP %EDIT-LOAD-MSG SUBR)) 
	(COMMENT **FASL** 18. (LAP %UFILE FSUBR)) 
(COMMENT ****  (EDIT FROM USER FILE |DSK:EDIT.113[AID,RPG]|) 
		Redefining system function in function EDIT)
	(COMMENT **FASL** 32. (LAP EDIT FSUBR)) 
	(COMMENT **FASL** 66. (LAP RE-EDIT FSUBR)) 
	(COMMENT **FASL** 90. (LAP EDIT1 SUBR)) 
	(COMMENT **FASL** 125. (LAP EDITV FSUBR)) 
	(COMMENT **FASL** 126. (LAP EDITP FSUBR)) 
	(COMMENT **FASL** 137. (LAP EDIT2 FSUBR)) 
	(COMMENT **FASL** 189. (LAP BEDIT SUBR)) 
	(COMMENT **FASL** 191. (LAP BEXIT SUBR)) 
	(COMMENT **FASL** 193. (LAP %EDITOR-TOPLEVEL SUBR)) 
	(COMMENT **FASL** 224. (LAP %EDMACRO SUBR)) 
	(COMMENT **FASL** 229. (LAP %EVALUATE SUBR)) 
(COMMENT ****  (LESSP 0. ?%N (1+ (%LENGTH %#CE))) 
		Closed compilation forced in function %EVAL-NUMBER)
(COMMENT ****  (LESSP 0. ?%N (1+ (%LENGTH %#CE))) 
		Closed compilation forced in function %EVAL-NUMBER)
	(COMMENT **FASL** 285. (LAP %EVAL-NUMBER SUBR)) 
	(COMMENT **FASL** 376. (LAP %EVAL-ATOM SUBR)) 
	(COMMENT **FASL** 725. (LAP %EVAL-LIST SUBR)) 
	(COMMENT **FASL** 1541. (LAP %DESCEND SUBR)) 
	(COMMENT **FASL** 1577. (LAP %ASCEND SUBR)) 
	(COMMENT **FASL** 1589. (LAP %NEXT SUBR)) 
	(COMMENT **FASL** 1611. (LAP %BEFORE SUBR)) 
	(COMMENT **FASL** 1628. (LAP %WINDOW SUBR)) 
	(COMMENT **FASL** 1675. (LAP %WINDOW-BACK SUBR)) 
	(COMMENT **FASL** 1718. (LAP %WINDOW-FORWARD SUBR)) 
	(COMMENT **FASL** 1761. (LAP %AINSERT SUBR)) 
	(COMMENT **FASL** 1838. (LAP %BINSERT SUBR)) 
	(COMMENT **FASL** 1845. (LAP %ACINSERT SUBR)) 
	(COMMENT **FASL** 1863. (LAP %BCINSERT SUBR)) 
	(COMMENT **FASL** 1877. (LAP %DELETER SUBR)) 
	(COMMENT **FASL** 1897. (LAP %DELETE SUBR)) 
	(COMMENT **FASL** 1963. (LAP %CDELETE SUBR)) 
	(COMMENT **FASL** 1970. (LAP %RESTORE-STATE SUBR)) 
	(COMMENT **FASL** 1990. (LAP %UNDOA SUBR)) 
	(COMMENT **FASL** 2008. (LAP %UNDOKSET SUBR)) 
	(COMMENT **FASL** 2046. (LAP %TOUNDO: FSUBR)) 
	(COMMENT **FASL** 2092. (LAP %POP SUBR)) 
	(COMMENT **FASL** 2102. (LAP %SAVEMARK SUBR)) 
	(COMMENT **FASL** 2118. (LAP %DATA-INIT FSUBR)) 
	(COMMENT **FASL** 2180. (LAP %GETNAME SUBR)) 
	(COMMENT **FASL** 2212. (LAP %GETDEF SUBR)) 
	(COMMENT **FASL** 2302. (LAP %MAKEDEF SUBR)) 
	(COMMENT **FASL** 2339. (LAP %GETDEF1 SUBR)) 
	(COMMENT **FASL** 2351. (LAP %SUBSTITUTE SUBR)) 
	(COMMENT **FASL** 2384. (LAP %LSUBSTITUTE SUBR)) 
	(COMMENT **FASL** 2416. (LAP %CREPLACE SUBR)) 
	(COMMENT **FASL** 2437. (LAP %REPLACE SUBR)) 
	(COMMENT **FASL** 2441. (LAP %STRINGSUB SUBR)) 
	(COMMENT **FASL** 2488. (LAP %MRPI SUBR)) 
	(COMMENT **FASL** 2517. (LAP %MRPO SUBR)) 
	(COMMENT **FASL** 2557. (LAP %MLPI SUBR)) 
	(COMMENT **FASL** 2581. (LAP %MLPO SUBR)) 
	(COMMENT **FASL** 2617. (LAP %FIND SUBR)) 
	(COMMENT **FASL** 2658. (LAP %FIND1 SUBR)) 
	(COMMENT **FASL** 2679. (LAP %CHECK-EXPRESSION SUBR)) 
	(COMMENT **FASL** 2703. (LAP %CHECK-ELEMENTS SUBR)) 
	(COMMENT **FASL** 2724. (LAP %CHECK-UPWARDS SUBR)) 
	(COMMENT **FASL** 2755. (LAP %TOPCHECK SUBR)) 
	(COMMENT **FASL** 2806. (LAP %MARK SUBR)) 
	(COMMENT **FASL** 2828. (LAP %JUMP SUBR)) 
	(COMMENT **FASL** 2873. (LAP %REMARK SUBR)) 
	(COMMENT **FASL** 2937. (LAP %STRUCTURE-LS SUBR)) 
	(COMMENT **FASL** 3001. (LAP %STRUCTURE SUBR)) 
	(COMMENT **FASL** 3090. (LAP %SPRINT SUBR)) 
	(COMMENT **FASL** 3116. (LAP %LENGTH SUBR)) 
	(COMMENT **FASL** 3145. (LAP %CARN SUBR)) 
	(COMMENT **FASL** 3167. (LAP %CDRN SUBR)) 
	(COMMENT **FASL** 3190. (LAP %POS SUBR)) 
	(COMMENT **FASL** 3203. (LAP %NEG SUBR)) 
	(COMMENT **FASL** 3216. (LAP %P LSUBR)) 
	(COMMENT **FASL** 3260. (LAP %READF SUBR)) 
	(COMMENT **FASL** 3342. (LAP %EXPAND-FILE-NAME SUBR)) 
	(COMMENT **FASL** 3497. (LAP %WRITEF SUBR)) 
	(COMMENT **FASL** 3534. (LAP %READ-FILE-NAME SUBR)) 
	(COMMENT **FASL** 3846. (LAP %REFILE SUBR)) 
	(COMMENT **FASL** 4047. (LAP %GETGRIND SUBR)) 
	(COMMENT **FASL** 4070. (LAP %GET-SOURCE-FILE SUBR)) 
	(COMMENT **FASL** 4085. (LAP %ACTIVATE-GRIND-MACROS SUBR)) 
	(COMMENT **FASL** 4114. (LAP %EDIT-GRIND-MACRO SUBR)) 
	(COMMENT **FASL** 4147. (LAP %FLUSHCOMMENTS SUBR)) 
	(COMMENT **FASL** 4164. (LAP %FLUSHCOMMENTS1 SUBR)) 
	(COMMENT **FASL** 4207. (LAP EDITCOMMAND FSUBR)) 
	(COMMENT **FASL** 4218. (LAP %LOAD-EDIT-INIT-FILE SUBR)) 
	(COMMENT **FASL** 4248. (LAP %LOAD-EDIT-INIT SUBR)) 
	(COMMENT **FASL** 4320. (LAP %EDIT-HELP SUBR)) 
	(COMMENT **FASL** 4334. (LAP REMEDIT SUBR)) 
	(COMMENT **FASL** 4421. (LAP REMEDITPROPS SUBR)) 
(COMMENT ****  (WORKER) 
		have been used but remain undefined in this file)
	(COMMENT **FASL** TOTAL =  4433. WORDS)